home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_20_1987_Transactor_Publishing.d64
/
mobile basic
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
245b
|
9 lines
10 for i=0 to 18: read a: poke 828+i,a: next
20 input"start";bs: poke 831,int(bs/256)
30 poke 829,bs-(int(bs/256)*256)
40 input"end";be: poke 839,int(be/256)
50 poke 837,be-(int(be/256)*256):sys828
60 data 162,0,160,0,24,32,156,255
70 data 162,0,160,0,24,32,153,255
80 data 108,0,160